Revista do CD-ROM 101/CD-ROM 101.iso/compl/maya5ple/Install_MayaPLE5_English.exe/Maya/Data1.cab/performCreateWrap.mel

Text File | 2003-07-17 | 8.9 KB | 342 lines

// Copyright (C) 1997-2002 Alias|Wavefront,
// a division of Silicon Graphics Limited.
//
// The information in this file is provided for the exclusive use of the
// licensees of Alias|Wavefront.  Such users have the right to use, modify,
// and incorporate this code into other products for purposes authorized
// by the Alias|Wavefront license agreement, without fee.
//
// ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
// INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
// EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
// CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
// DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
// TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
// PERFORMANCE OF THIS SOFTWARE.
//
//
//  Alias|Wavefront Script File
//  MODIFY THIS AT YOUR OWN RISK
//
//  Creation Date:  Oct 12, 1998
//
//  Description:
//      This script sets up the Create Wrap dialog box
//
//  Input Arguments:
//      None.
//
//  Return Value:
//      None.
//

proc setOptionVars (int $forceFactorySettings)
{
    // Limit influence area by default is set to false
    //
    if ( $forceFactorySettings || !`optionVar -exists limitInfluence`) {
        optionVar -intValue limitInfluence 0;
    }

    // Weight threshold
    //
    if ( $forceFactorySettings || !`optionVar -exists weightThreshold` ) {
        optionVar -floatValue weightThreshold 0.0;
    }

    // Max Distance
    //
    if ( $forceFactorySettings || !`optionVar -exists maxDistance` ) {
        optionVar -floatValue maxDistance 1.0;
    }

}

//
//  Procedure Name:
//      createWrapSetup
//
//  Description:
//        Update the state of the option box UI to reflect the option values.
//
//  Input Arguments:
//      parent               - Top level parent layout of the option box UI.
//                             Required so that UI object names can be
//                             successfully resolved.
//
//        forceFactorySettings - Whether the option values should be set to
//                             default values.
//
//  Return Value:
//      None.
//
global proc createWrapSetup (string $parent, int $forceFactorySettings)
{
    // Retrieve the option settings
    //
    setOptionVars( $forceFactorySettings );

    setParent $parent;

    // Query the optionVar's and set the values into the controls
    //
    int $limitInfluence = `optionVar -query limitInfluence`;
    checkBoxGrp -e -value1 $limitInfluence liWidget;

    // Weight threshold
    //
    if (`floatSliderGrp -exists wtWidget`){
        floatSliderGrp -edit
            -value `optionVar -query weightThreshold`
            wtWidget;
    }

    // max distance
    //
    if (`floatSliderGrp -exists mdWidget`){
        floatSliderGrp -edit
            -value `optionVar -query maxDistance`
            mdWidget;
        if ($limitInfluence)
            floatSliderGrp -e -enable 1 mdWidget;
        else
            floatSliderGrp -e -enable 0 mdWidget;
    }

}


//
//  Procedure Name:
//      createWrapCallback
//
//  Description:
//        Update the option values with the current state of the option box UI.
//
//  Input Arguments:
//      parent - Top level parent layout of the option box UI.  Required so
//               that UI object names can be successfully resolved.
//
//        doIt   - Whether the command should execute.
//
//  Return Value:
//      None.
//
global proc createWrapCallback (string $parent, int $doIt)
{
    setParent $parent;

    optionVar -intValue limitInfluence `checkBoxGrp -q -value1 liWidget`;

    // Weight threshold
    //
    if (`floatSliderGrp -exists wtWidget`) {
        optionVar -floatValue weightThreshold
            `floatSliderGrp -query -value wtWidget`;
    }

    // Max distance
    //
    if (`floatSliderGrp -exists mdWidget`) {
        optionVar -floatValue maxDistance
            `floatSliderGrp -query -value mdWidget`;
    }

    if ($doIt) {
        performCreateWrap false;
        addToRecentCommandQueue "performCreateWrap false" "CreateWrap";
    }
}


global proc createWrapOptions ()
{
    // Name of the command for this option box
    //
    string $commandName = "createWrap";

    // Build the option box "methods"
    //
    string $callback = ($commandName + "Callback");
    string $setup = ($commandName + "Setup");

    //    STEP 1:  Get the option box.
    //    ============================
    //
    //    The value returned is the name of the layout to be used as
    //    the parent for the option box UI.
    //
    string $layout = getOptionBox();
    setParent $layout;

    //    STEP 2:  Pass the command name to the option box.
    //    =================================================
    //
    //    Any default option box behaviour based on the command name is set
    //    up with this call.  For example, updating the 'Help' menu item with
    //    the name of the command.
    //
//    setOptionBoxCommandName("performWrap");

    //    STEP 3:  Activate the default UI template.
    //    ==========================================
    //
    //    Activate the default UI template so that the layout of this
    //    option box is consistent with the layout of the rest of the
    //    application.
    //
    setUITemplate -pushTemplate DefaultTemplate;

    //    STEP 4: Create option box contents.
    //    ===================================
    //
    //    This, of course, will vary from option box to option box.

    //    Turn on the wait cursor.
    //
    waitCursor -state 1;

    tabLayout -tabsVisible 0 -scrollable 1;

    string $parent = `columnLayout -adjustableColumn 1`;

    floatSliderGrp -label "Weight Threshold" -minValue 0 -maxValue 1.0 -pre 2 wtWidget ;

    checkBoxGrp
        -label "Limit Influence Area"
        -label1 "Use Max Distance"
        -numberOfCheckBoxes 1
         -on1 "floatSliderGrp -e -enable 1 mdWidget"
         -of1 "floatSliderGrp -e -enable 0 mdWidget"
        liWidget;


    floatSliderGrp -label "Max Distance" -minValue 0.01 -maxValue 50.0 -fieldMaxValue 1000.0 -enable (`checkBoxGrp -q -v1 liWidget`) -pre 2 mdWidget;

    //    Turn off the wait cursor.
    //
    waitCursor -state 0;

    //    Step 5: Deactivate the default UI template.
    //    ===========================================
    //
    setUITemplate -popTemplate;

    //    Step 6: Customize the buttons.
    //    ==============================
    //
    //    Provide more descriptive labels for the buttons.  This is not
    //    necessary, but in some cases, for example, a button labelled
    //    'Create' may be more meaningful to the user than one labelled
    //    'Apply'.
    //
    //    Disable those buttons that are not applicable to the option box.
    //
    //    Attach actions to those buttons that are applicable to the option
    //    box.  Note that the 'Close' button has a default action attached
    //    to it that will hide the window.  If a a custom action is
    //    attached to the 'Close' button then be sure to call the 'hide the
    //    option box' procedure within the custom action so that the option
    //    box is hidden properly.

    //    'Apply' button.
    //
    string $applyBtn = getOptionBoxApplyBtn();
    button -edit -l "Create"
        -command ($callback + " " + $parent + " " + 1)
        $applyBtn;

    //    'Save' button.
    //
    string $saveBtn = getOptionBoxSaveBtn();
    button -edit
        -command ($callback + " " + $parent + " " + 0 + "; hideOptionBox")
        $saveBtn;

    //    'Reset' button.
    //
    string $resetBtn = getOptionBoxResetBtn();
    button -edit
        -command ($setup + " " + $parent + " " + 1)
        $resetBtn;

    //    Step 7: Set the option box title.
    //    =================================
    //
    setOptionBoxTitle("Create Wrap Options");

    //    Step 8: Customize the 'Help' menu item text.
    //    ============================================
    //
    setOptionBoxHelpTag( "CreateWrap" );

    //    Step 9: Set the current values of the option box.
    //    =================================================
    //
    eval (($setup + " " + $parent + " " + 0));

    //    Step 10: Show the option box.
    //    =============================
    //
    showOptionBox();
}

proc string assembleCmd ()
{
    string $cmd;

    setOptionVars( false );

    $cmd = "doWrapArgList \"2\" { \"1\",";

    float $thresh = `optionVar -query weightThreshold`;
    $cmd = $cmd + "\"" + $thresh + "\",";

    int $limitInfl = `optionVar -q limitInfluence`;
    if ($limitInfl == 1)
        $cmd = $cmd + "\"" + `optionVar -query maxDistance` + "\"";
    else
        $cmd = $cmd + "\"0.0\"";

    $cmd = $cmd + " }";
    return $cmd;
}

global proc string performCreateWrap (int $action)
//
// The action variable means
//        0 - do the command
//        1 - show the option box
//        2 - return the drag command
{
    string $cmd = "";

    switch ($action) {
        case 0: // Execute the command
            // Retrieve the option settings
            //
            setOptionVars (false);

            // Get the command and print it in the command window
            $cmd = `assembleCmd`;

            // Execute the command with the option settings
            eval($cmd);

            break;
        case 1:  // Do the option box
            createWrapOptions;
            break;
        case 2: // Return the drag string
            // Retrieve the option settings
            //
            setOptionVars (false);

            // Get the command
            $cmd = `assembleCmd`;

            break;
    }
    return $cmd;
}